home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / guides-texts / amos / amoslist / text0059.txt < prev    next >
Encoding:
Text File  |  1995-09-01  |  1.7 KB  |  44 lines
  1.  
  2. > If you look at my original request, I asked also for colours 32-63 to goto
  3. > colour 0. Without, it looks good, but if anyone can see a way of doing it,
  4. > I'd be very grateful :-). For anyone who's interested, this is what I got:
  5. > 
  6. >   SCRPOS=Leek(Screen Base+4*5)
  7. >   Memory Fill SCRPOS To SCRPOS+(320*160)/8-1,Chr$(255)
  8. > 
  9.  
  10. Assemble these lines into a bank, then call them for each bitplane
  11. with:
  12.  
  13.      Dreg(0)=Num Longwords in a bitplane
  14.      Areg(0)= Address of bitplanes (0-4 on each iteration)
  15.      Areg(1)=Address of bitplane 5    
  16.  
  17. Do this before you fill bitplane 5, and it should convert all colours
  18. 0-31 to 0. Then the fill will convert them all to colour 32, but they
  19. will still be black which is what you wanted.
  20.  
  21.         Bra         skip
  22. loop:        Move.l     0(A0,D0.l),D1
  23.         And.l     0(A1,D0),D1
  24.         Move.l     D1,0(A0,D0.l)
  25. skip:        DBra     D0,loop
  26.                    Rts
  27.  
  28. P.s. This assembler is untested, but it is roughly right. You might
  29. have to split the And into a move and an And if it doesn't take this
  30. addressing mode.
  31. --------------------------------------------------------
  32.  WORK: Eurotherm Controls, Worthing                     
  33.  Email: paul.hickman@controls.eurotherm.co.uk           
  34.                                                         
  35.  UNIVERSITY: Imperial College, London                      
  36.  Email: ph@doc.ic.ac.uk                                 
  37. --------------------------------------------------------
  38. The opinions expressed above to not represent the views of
  39. Eurotherm Controls plc, or Imperial College, or in fact Paul
  40. Hickman, but are in fact the views of a small furry alien from
  41. the planet zorg (called fred), so if you don't like them, sue 
  42. him/her/whatever. Death to all tennis players.
  43.  
  44.